
Find every: REFILL
^DD(52,.01,"DEL",52,0)=S X1=$S($D(^PSRX(D0,2)):$P(^(2),"^",6),1:0) S:'X1 RX0=^(0
),J=D0 D ^PSOEXDT:'X1 I DT'>$P(^(2),U,6),$O(^PSRX(DA,1,0)) D EN^DDIOL("CANNOT DE
LETE PRESCRIPTIONS WITH REFILLS.","","$C(7),!?5")
^DD(52,9,0)=# OF REFILLS^RNX^^0;9^D REF^PSOHELP
^DD(52,52,0)=REFILL^52.1D^^1;0
^DD(52,100,0)=STATUS^RS^0:ACTIVE;1:NON-VERIFIED;2:REFILL;3:HOLD;4:DRUG INTERACTI
ONS;5:SUSPENDED;10:DONE;11:EXPIRED;12:DISCONTINUED;13:DELETED;14:DISCONTINUED BY
 PROVIDER;15:DISCONTINUED (EDIT);16:PROVIDER HOLD;^STA;1^Q
^DD(52.032,1,2)=S Y(0)=Y S Y=$S(Y:"REFILL #"_Y,1:"ORIGINAL")
^DD(52.032,1,2.1)=S Y=$S(Y:"REFILL #"_Y,1:"ORIGINAL")
^DD(52.1,0)=REFILL SUB-FIELD^NL^20^32
^DD(52.1,.01,0)=REFILL DATE^D^^0;1^S %DT="EX" D ^%DT S X=Y K:Y<1 X
^DD(52.25,8,21,1,0)=In case of a REFILL TOO SOON reject (#79) and the payer retu
rns the last date the prescription was filled, it will be stored on this field.
^DD(52.3,.04,2)=S Y(0)=Y S Y=$S(Y=6:"PARTIAL",Y>0&(Y<6):"REFILL #"_Y,Y>6:"REFILL
 #"_(Y-1),1:"ORIGINAL")
^DD(52.3,.04,2.1)=S Y=$S(Y=6:"PARTIAL",Y>0&(Y<6):"REFILL #"_Y,Y>6:"REFILL #"_(Y-
1),1:"ORIGINAL")
^DD(52.41,2,0)=ORDER TYPE^RS^NW:NEW ORDER;HD:HOLD;RNW:RENEW;DE:DISCONTINUED (EDI
T);DC:DISCONTINUED;RF:REFILL REQUEST;^0;3^Q
^DD(52.41,13,0)=# OF REFILLS^NJ2,0^^0;11^K:+X'=X!(X>11)!(X<1)!(X?.E1"."1N.N) X
^DD(52.41,21,0)=Rx REFILL REQUEST^NJ12,0^^0;19^K:+X'=X!(X>999999999999)!(X<1)!(X
?.E1"."1N.N) X
^DD(52.41,22,0)=REASON ORDER CREATED^S^N:NEW;R:RENEWAL;E:EDIT;F:REFILL;^0;20^Q
^DD(52.85,5,21,2,0)=application under this Pharmacy Division. When this paramete
r is set to 'NO', all the regular prescriptions (excludes: Non-VA Meds, Pending 
Orders and REFILL TOO SOON/DUR prescriptions) are listed under the 'CURRENT ORDE
RS' group. 
^DD(52.8551,5,21,2,0)=regular prescriptions (excludes: Non-VA Meds, Pending Orde
rs and REFILL TOO SOON/DUR prescriptions) are listed under the 'CURRENT ORDERS' 
group. 
^DD(53,4,0)=REFILLS^NJ2,0^^0;4^K:+X'=X!(X>11)!(X<0)!(X?.E1"."1N.N) X

Global ^
CPM263>D P^DI


VA FileMan 22.0


Select OPTION: MODIFY FILE ATTRIBUTES  
Do you want to use the screen-mode version? YES// NO

MODIFY WHAT FILE: PATIENT NOTIFICATION (Rx READY)// 52  PRESCRIPTION
                                          (3061 entries)



Select FIELD: REFILL    (multiple)
LABEL: REFILL// 
READ ACCESS (OPTIONAL): 
WRITE ACCESS (OPTIONAL): 
SOURCE: VAF 10-2577// 
Select DESTINATION: 
Select GROUP: 
DESCRIPTION:
  1>This is the date the prescription is refilled.
EDIT Option: 
TECHNICAL DESCRIPTION:
  1>Date Multiple #52.1 (Add new entry without asking).
EDIT Option: 



Select REFILL SUB-FIELD: MAIL/WINDOW  
LABEL: MAIL/WINDOW// 
TITLE: 
AUDIT CONDITION: 
READ ACCESS (OPTIONAL): 
DELETE ACCESS (OPTIONAL): 
WRITE ACCESS (OPTIONAL): 
SOURCE: 
Select DESTINATION: 
Select GROUP: 
DESCRIPTION:
  1>This field contains 'M' if the refill is to be mailed to the patient and
  2>'W' if the refill is to be picked up at the pharmacy window.
EDIT Option: 
TECHNICAL DESCRIPTION:
  1>(Required) Set 'M' for Mail, 'W' for Window.
EDIT Option: 

DATA TYPE OF MAIL/WINDOW: SET OF CODES// 
INTERNALLY-STORED CODE: M//   WILL STAND FOR: MAIL// 
INTERNALLY-STORED CODE: W//   WILL STAND FOR: WINDOW// 
INTERNALLY-STORED CODE: P  WILL STAND FOR: PARK
INTERNALLY-STORED CODE: 
SHOULD 'MAIL/WINDOW' ENTRIES BE SCREENED? No//   (No)
IS MAIL/WINDOW ENTRY MANDATORY (Y/N): Y//   YES
....
'HELP'-PROMPT: 
XECUTABLE 'HELP': 



SINCE YOU HAVE CHANGED THE FIELD DEFINITION,
EXISTING 'MAIL/WINDOW' DATA WILL NOW BE CHECKED FOR INCONSISTENCIES
OK? Yes//   (Yes)

DEVICE: HOME//   VMS

























VERIFY FIELDS REPORT
REFILL SUB-FILE (#52.1)                           SEP 16, 2012  16:42    PAGE 1
-------------------------------------------------------------------------------

(CANNOT CHECK CROSS-REFERENCE)

ENTRY#'S  REFILL DATE                   ERROR
400951    100001260
2         2950830                       Missing

401078    100001340
3         2951211                       Missing

401148    100001396B
2         2970701                       Missing

401328    100001484
2         2970227                       Missing

501590    
 D LF Q:$D(DIRUT)  W DA(X),?10,$P(^(DA(X),0),U) S X=X-1,@("Y=$D(^("_I(V-X)_",0))
                               ^
") G DA
<UNDEFINED>DA+4^DIVR ^PSRX(501590,0)
CPM263 11d5>ZW DA
DA=1
DA(1)=501590

CPM263 11d5>G


Enter RETURN to continue or '^' to exit: 
























VERIFY FIELDS REPORT
REFILL SUB-FILE (#52.1)                           SEP 16, 2012  16:42    PAGE 2
-------------------------------------------------------------------------------
1         1                             Missing

STORE THESE ENTRY ID'S IN TEMPLATE: 



Select REFILL SUB-FIELD: 



Select FIELD: 









